home *** CD-ROM | disk | FTP | other *** search
/ Mac Action 1996 January / mac-action-07.iso / mac / Inside Action / Beatrix Potter / Peter Rabbit / DSTORIES.DXR / 00002.ls next >
Encoding:
Text File  |  1995-07-13  |  377 b   |  13 lines
  1. on mouseUp
  2.   global gPersonalNameCast, gPersonalIconCast, gNameCastCount, gIconCastCount
  3.   set newCast to gPersonalIconCast - 1
  4.   if newCast < 1 then
  5.     set newCast to gIconCastCount
  6.   end if
  7.   set the castNum of sprite 5 to 500 + newCast
  8.   set the castNum of sprite 6 to 210 + newCast
  9.   set gPersonalIconCast to newCast
  10.   set gPersonalNameCast to newCast
  11.   updateStage()
  12. end
  13.